100 REM HI-RES TEXT MAKER
110 REM BY DARREN JAMES SPRUYT
120 REM BOX 1226
130 REM GRAVENHURST, ONTARIO
140 REM P0C 1G0
150 REM
160 SYS 700
170 .OPT OO
180 *=$8000
190 BASE   =$6000
200 TEMP   =$02B6
210 TMP1   =$02B7
220 TMP2   =$02B8
230 PNTR1  =$02B9
240 CNTR1  =$02BA
250 CHAROW =$02BB
260 CNTR2  =$02AC
270 CNTR3  =$02AD
280 COLOR  =$0335
290 ADDITI =$0334
300 ;
310 ;FOLLOWIN JMP TABLE
320 JMP HION
330 JMP CLEAR
340 JMP HIOFF
350 ;
360 ;START OF CODE
370 PRINT =*
380 ;
390 ;CREATE BASE ADDRESS
400 LDA #>BASE
410 STA $23          ;SET HIGH ADDRESS
420 LDA #<BASE       ;A=LO ADDRESS
430 LDX $02A7        ;CHARACTER ROW
440 BEQ P1           ;FOR EACH
450 P3 CLC           ;ROW
460 ADC #$40         ;ADD TO BASE
470 BCC P2           ;ADDRESS, 320
480 INC $23          ;OR $0140 IN HEX
490 P2 INC $23       ;
500 DEX              ;DONE
510 BNE P3           ;NO
520 P1 LDX $02A6     ;COLUMN ADDRESS
530 BEQ P4           ;FOR EACH COLUMN
540 P6 CLC           ;ADD 8
550 ADC #$08         ;TO THE BASE
560 BCC P5           ;ADDRESS
570 INC $23          ;
580 P5 DEX           ;DONEPRINT
590 BNE P6           ;NO
600 P4 STA $22       ;SAVE LO ADDRESS
610 ;
620 ;COPY CHAR DATA FROM ROM
630 ;TO $02AE
640 SEI              ;LOCKOUT IRQ
650 LDA $01
660 AND #%11111011   ;MAKE D ROM
670 STA $01          ;VISIBLE
680 LDA #$00         ;GENERATE
690 STA $15
700 LDA $02AB        ;INDIRECT
710 STA $14
720 ASL $14          ;BASED
730 ROL $15
740 ASL $14          ;ON
750 ROL $15
760 ASL $14          ;CHARACTER NUMBER
770 ROL $15
780 CLC              ;TIMES 8
790 LDA #$D8
800 ADC $15          ;PLUS $D000
810 STA $15
820 LDY #$07         ;COPY CHARACTER
830 L1 LDA ($14),Y
840 STA $02AE,Y      ;BIT PATTERNS
850 DEY
860 BPL L1           ;FROM ROM
870 LDA $01
880 ORA #%00000100
890 STA $01          ;CLOSE ROM UP
900 CLI              ;RELEASE IRQ
910 LDA #0           ;INITIALIZE
920 STA CHAROW       ;CHAR PIXEL ROWS
930 STA CNTR3        ;SCREEN PIXEL ROW
940 Z15 LDA $02AA
950 STA CNTR2        ;Y MULTIPLE SIZE
960 Z13 LDA CNTR3
970 STA PNTR1        ;Y VAL FOR SCREEN
980 LDX CHAROW       ;CURRENT CHAR ROW
990 LDY #$07         ;BREAK BITS
1000 Z1 ROR $02AE,X   ;INTO BYTES AT
1010 BCS Z2           ;$033C
1020 LDA #$00
1030 .BYTE $2C
1040 Z2 LDA #$FF
1050 STA $033C,Y
1060 DEY              ;DONE BREAK
1070 BPL Z1           ;NO
1080 ROR $02AE,X      ;FINISH ROTATION
1090 LDA #0
1100 STA TEMP         ;SET TEMP
1110 LDA #$08
1120 STA CNTR1        ;SET ROTATIONS 8
1130 LDX #$00
1140 Z8  LDY $02A9    ;GET X MULTIPLE
1150 Z5 LDA $033C,X   ;TEST BIT VALUES
1160 BEQ Z3           ;ZERO MEANS 0
1170 SEC              ;ROTATE A 1 IN
1180 ROL TEMP
1190 JMP Z4
1200 Z3 CLC           ;ROTATE A 0 IN
1210 ROL TEMP
1220 Z4 DEC CNTR1     ;DONE 8 SHIFTS
1230 BEQ Z6           ;YES - TO SCREEN
1240 Z7  DEY          ;CHECK MULTIPLES
1250 BNE Z5           ;DO MORE
1260 INX              ;CHECK ALL 8 BITS
1270 CPX #$08         ;ARE DONE
1280 BNE Z8           ;NO - DO MORE
1290 JMP Z9          ;
1300 Z6 =*           ;
1310 STY TMP1        ;SAVE Y
1320 STX TMP2        ;SAVE X
1330 LDY PNTR1       ;GET Y PNTR
1340 LDA ADDITI      ;MESH MODE
1350 BEQ Z23         ;NO
1360 LDA ($22),Y     ;GET PREV PATTERN
1370 Z23 ORA TEMP    ;ADD NEW PATTERN
1380 STA ($22),Y     ;BACK TO SCREEN
1390 LDA #0          ;SET TEMP TO ZERO
1400 STA TEMP
1410 LDA #8          ;SET CNTR
1420 STA CNTR1
1430 LDA PNTR1       ;ADD 8 TP PNTR1
1440 CLC             ;TO GET
1450 ADC #$08        ;TO THE NEXT
1460 STA PNTR1       ;ROW
1470 LDY TMP1        ;RESTORE X AND Y
1480 LDX TMP2
1490 JMP Z7          ;RECURSE
1500 Z9 INC CNTR3    ;COUNT PIXEL ROWS
1510 LDA CNTR3
1520 CMP #$08        ;AT EIGHT
1530 BNE Z10         ;NOPE
1540 LDA #$00
1550 STA CNTR3       ;RE-SET COUNTER
1560 CLC
1570 LDA $22         ;ADD 320
1580 ADC #$40
1590 BCC Z11         ;TO THE INDIRECT
1600 INC $23
1610 Z11 INC $23     ;ADDRESS ($22)
1620 STA $22
1630 Z10 DEC CNTR2   ;Y MULTIPLES
1640 BEQ Z12         ;DONE
1650 JMP Z13         ;REPEAT PREVIOS RO
1660 Z12  INC CHAROW ;CHR  PIXEL ROW
1670 LDA CHAROW      ;
1680 CMP #$08        ;DONE ALL 8 ROWS
1690 BEQ Z14         ;YES THEN FINISHED
1700 JMP Z15         ;DO NEXT ROW
1710 Z14 =*
1720 ;ADD COLOUR AS INDICATED
1730 LDA #$5C        ;BUILD THE
1740 STA $15
1750 LDA #$00        ;INDIRECT
1760 LDX $02A7
1770 BEQ J2          ;ADDRESS
1780 J3 CLC
1790 ADC #$28        ;VIA BASE
1800 BCC J1
1810 INC $15         ;OF $5C00
1820 J1 DEX
1830 BNE J3          ;PLUS Y POS *40
1840 J2 CLC
1850 ADC $02A6       ;AND  X POS
1860 STA $14
1870 BCC J7
1880 INC $15         ;DONE
1890 J7 =*
1900 LDX $02AA       ;GET Y SIZE
1910 J6 LDY $02A9    ;GET X SIZE
1920 DEY
1930 LDA COLOR       ;GET COLOR VAL
1940 J4 STA ($14),Y  ;PUT IN MEM
1950 DEY             ;DONE X
1960 BPL J4          ;NO
1970 LDA $14         ;ADD 40
1980 CLC
1990 ADC #$28        ;TO THE ADDRESS
2000 BCC J5
2010 INC $15         ;DONE
2020 J5 STA $14
2030 DEX             ;DONE Y
2040 BNE J6          ;NO
2050 RTS
2060 HION =*
2070 LDA $D011
2080 ORA #%00100000   ;TURN HI-RES BIT
2090 STA $D011
2100 LDA #%01111000
2110 STA $D018        ;SET SCREEN/MAP
2120 LDA $DD00
2130 AND #%11111100
2140 ORA #%00000010
2150 STA $DD00        ;SET VIC CHIP
2160 RTS              ;ADDRESSES
2170 HIOFF =*
2180 LDA $D011
2190 AND #%11011111   ;RE-SET BIT MAP
2200 STA $D011
2210 LDA #21
2220 STA $D018        ;RESET SCREENMAP
2230 LDA $DD00
2240 AND #%11111100
2250 ORA #%00000011
2260 STA $DD00        ;RESET VIC CHIP
2270 RTS              ;ADDRESS
2280 CLEAR LDY #0
2290 LDA #>BASE       ;BASE ADDRESS
2300 STA $15          ;INTO
2310 STY $14          ;($14)
2320 LDX #32          ;DO 32 PAGES
2330 LDA #00          ;
2340 T6 STA ($14),Y   ;ZERO MEMORY
2350 DEY
2360 BNE T6
2370 INC $15
2380 DEX              ;DONEPRINT
2390 BNE T6           ;NO
2400 LDA $D021        ;PULL OLD COLOR
2410 AND #%00001111   ;FROM VIC CHIP
2420 STA $02
2430 ASL
2440 ASL
2450 ASL              ;SHIFT TO HIGH
2460 ASL              ;NYBBLE
2470 LDY #0
2480 ORA $02          ;LOW NYBBLE
2490 J53 STA $5C00,Y  ;FILL
2500 STA $5D00,Y      ;COLOR
2510 STA $5E00,Y      ;AREA
2520 STA $5F00-24,Y   ;UP
2530 INY
2540 BNE J53
2550 RTS
2560 .END